home *** CD-ROM | disk | FTP | other *** search
- 100 REM !-----------------------------!
- 110 REM ! ARVEE'S DIRECTORY REPAIRMAN !
- 120 REM ! !
- 130 REM ! C-1987 WHITAKER LABS !
- 140 REM ! !
- 150 REM ! BROUGHT TO YOU BY SCORMUS !
- 160 REM !-----------------------------!
- 170 :
- 180 REM PROTECT GEOS FROM BASIC
- 190 IFPEEK(56)>126THENPOKE56,126:CLR
- 200 :
- 210 REM DIMS FLGS VARS CONSTNTS STRINGS
- 220 REM DIMENSIONS
- 230 DIM BF(23):REM BLKS FREE COMPUTED
- 240 DIM BD(20):REM DIR BLKS FOLLOWED
- 250 DIM M$(11):REM MSGS
- 260 DIM F$(7) :REM FILE NAMES
- 270 DIM BM(2) :REM BAM TEMP 0-7/8-F/10+
- 280 :
- 290 REM FLAGS
- 300 PE=0:REM PRNT ERR CHN 1=PRNT
- 310 IS=0:REM ILLEGAL SECTR
- 320 BD=0:REM BAD DIRECTORY
- 330 BB=0:REM BAD BLOCK
- 340 BP=0:REM BAD POINTER
- 350 NF=0:REM DIR NOT FIXED
- 360 BT=0:REM OFF TR 18
- 370 :
- 380 REM VARIABLES
- 390 X=0:Y=0:T=0:REM LOOP VARS
- 400 TR=18:SE=0:REM DEFAULT TR/SE
- 410 TV=18:SV=0:REM TR/SE PNTR VAL
- 420 AL=55537 :REM COLOR POKE PSEUDO BASE
- 430 M =0:D=0 :REM MESSAGE #/# LINES DOWN
- 440 CF=0:BL=0:REM COMP/ACTUAL BLKS FREE
- 450 ND=0:E=0 :REM NEW DOS VERS
- 460 CT=0 :REM # OF MISALLOC BLKS
- 470 P =0 :REM BUFFER POINTER
- 480 :
- 490 REM STRINGS
- 500 A$="":B$="":C$="":D$="":REM TMP STR
- 510 WP$="":REM WRITE PROTECT
- 520 NL$=CHR$(0):REM NULL
- 530 L$="└└└└└└└└└└└└└└└└└└└"
- 540 L2$=" └└└└└└└└└└└└└└└└└"
- 550 R1$=""
- 560 R2$="£"
- 570 :
- 580 REM GEOS SPECIFIC CONSTANTS
- 590 DA=33938:REM DISK TURBO FLG DRIVE A
- 600 DB=33939:REM DISK TURBO FLG DRIVE B
- 610 V2=49893:REM VERS 1.2 SETUP SYS
- 620 V3=49708:REM VERS 1.2/3 RESTART
- 630 VL=49158:REM GEOS BOOT & VERS # LOC
- 640 FORX=0TO8:REM CHECK FOR GEOSTOBOOT
- 650 GB$=GB$+CHR$(PEEK(VL+X)):REM STRING
- 660 NEXT:REM FOR POSS DESKTOP REENTRY
- 670 VE=PEEK(VL+X):REM GEOS VERS #
- 680 :
- 690 REM MESSAGES
- 700 M$(0)="Ü<< ╨RESS ╦EY ╞OR ═ENUá>>"
- 710 M$(1)="Ü<< ╨RESS ╦EY ╘O ┬OOT >>"
- 720 M$(2)="û<< ╫┴╥╬╔╬╟á!!!áá═╔╙┴╠╠╧├┴╘┼─ ┬╠╧├╦╙ >>"
- 730 M$(3)="<< ╧PERATION ┴BORTED .. ╚IT A ╦EY >>"
- 740 M$(4)="<< ╫┴╥╬╔╬╟ !!! ┬┴─á─╔╥┼├╘╧╥┘ >>"
- 750 M$(5)="û<< ╫┴╥╬╔╬╟ !!! ┬┴─á┼╬─á╨╘╥ >>"
- 760 M$(6)="<< ╧PERATION ╞AILED .. ╥ETRY >>"
- 770 M$(7)="Ü<< ╨RESS ╦EY FOR ═ENU >>